home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / MacCrypt / src / MacCrypt.pl < prev    next >
Encoding:
Text File  |  1995-12-02  |  2.0 KB  |  47 lines  |  [TEXT/McPL]
  1. #
  2. # MacCrypt -- crypt function for MacPerl
  3. # Matthias Neeracher <neeri@iis.ee.ethz.ch>
  4. # ported from BSD 4.4 Lite sources:
  5. #
  6. # Copyright (c) 1989, 1993
  7. #    The Regents of the University of California.  All rights reserved.
  8. #
  9. # This code is derived from software contributed to Berkeley by
  10. # Tom Truscott.
  11. #
  12. # Redistribution and use in source and binary forms, with or without
  13. # modification, are permitted provided that the following conditions
  14. # are met:
  15. # 1. Redistributions of source code must retain the above copyright
  16. #    notice, this list of conditions and the following disclaimer.
  17. # 2. Redistributions in binary form must reproduce the above copyright
  18. #    notice, this list of conditions and the following disclaimer in the
  19. #    documentation and/or other materials provided with the distribution.
  20. # 3. All advertising materials mentioning features or use of this software
  21. #    must display the following acknowledgement:
  22. #    This product includes software developed by the University of
  23. #    California, Berkeley and its contributors.
  24. # 4. Neither the name of the University nor the names of its contributors
  25. #    may be used to endorse or promote products derived from this software
  26. #    without specific prior written permission.
  27. #
  28. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  29. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  30. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  31. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  32. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  33. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  34. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  35. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  36. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  37. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  38. # SUCH DAMAGE.
  39.  
  40. #
  41. # $result = &crypt(key, seed);
  42. #
  43.  
  44. &MacPerl'LoadExternals("MacCrypt.pl");
  45.  
  46. 1;
  47.